home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / raytrace / pov / gen / form04a / sue / anonite2.frm next >
Encoding:
Text File  |  1994-02-04  |  807 b   |  25 lines
  1. Copyright (c) Sue Cunningham
  2.  
  3. // the anonite revisited
  4.  
  5. s1 = sphere stack 100 in 20 twist 3*360,3;
  6. s2 = s1 fan 3, 90;
  7. s3 = ellipse 5, 1 stack 150 in 15 bend 780 grow 3;
  8. s4 = ellipse 1, 0.2 stack 150 in 15 bend 720 grow 3;
  9. s5 = ellipse 0.5, 0.1 stack 150 in 15 bend 700 grow 3;
  10. s6 = ellipse 0.2, 0.04 stack 150 in 15 bend 700 grow 3;
  11. s7 = ellipse 1, 0.2 stack 150 in 15 bend 780 grow 4 twistx 360;
  12. s8 = sphere 1.2 stack 30 in 10 bend 20;
  13. s8a = sphere 1.2 stack 100 in 10 bend 2*360 twist 60, 1;
  14. s9 = s8,s7;
  15. s10 = ellipse <1.25, 3.75, 3.75> fan 60, 90, 0.1;
  16. ano1=s3,s4,s5;
  17. ano2=s3,s4,s6;
  18. fan1 = s9 fan 10, 180;
  19. space_fan1 = fan1, sphere 8 delete 2;
  20. //silly_web = s9 web 7 with s8 4 hole 1;
  21. //very_odd_web = space_fan1 web 3 with s8 2 hole 1;
  22. another_obj =s10,s8a,s4;
  23. another_obj;
  24. end;
  25.